home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
extras
/
programm
/
gemfsc20
/
gemfsc20.lzh
/
GEMFBIND
/
VARCPIE.S
< prev
next >
Wrap
Text File
|
1993-03-16
|
1KB
|
53 lines
;*========================================================================
;* VDIFAST Public Domain VDI bindings.
;*========================================================================
;*------------------------------------------------------------------------
;* Arc and Pie.
;*------------------------------------------------------------------------
globl _v_arc
_v_arc:
moveq.l #2,d1
bra.b varcpie
globl _v_pieslice
_v_pieslice:
moveq.l #3,d1
varcpie:
; .cargs #8,handle.w,x.w,y.w,radius.w,begang.w,endang.w
handle = 8
x = 10
y = 12
radius = 14
begang = 16
endang = 18
link a6,#0
clr.w -(sp) ;* There are some unused words
move.w radius(a6),-(sp) ;* (which must be zeroed) in the
clr.l -(sp) ;* ptsin definition for arc & pie,
clr.l -(sp) ;* so build a temporary ptsin
move.l x(a6),-(sp) ;* array on the stack.
move.l sp,a0 ;* Save pointer to ptsin.
; VContrl #11,d1,#4,#2
move.w handle(a6),-(sp) ; contrl[6]
move.w d1,-(sp) ; contrl[5]
subq.l #2,sp ; contrl[4]
move.w #2,-(sp) ; contrl[3]
subq.l #2,sp ; contrl[2]
move.w #4,-(sp) ; contrl[1]
move.w #11,-(sp) ; contrl[0]
subq.l #8,sp ;* -> ptsout, intout
move.l a0,-(sp) ;* -> ptsin
pea begang(a6) ;* -> intin
pea 16(sp) ;* -> contrl
jmp vdicall
end